Option Explicit
Sub Q_Sample046()
    ']wޥζ Windows Script Host Object Model
    Dim myWsh  As IWshRuntimeLibrary.WshShell
    Dim myUShtCut As IWshRuntimeLibrary.WshURLShortcut
    Dim myPath As String
    Set myWsh = CreateObject("Wscript.Shell")
    'w|W
    myPath = myWsh.SpecialFolders("Desktop")
    Set myUShtCut = myWsh.CreateShortcut(myPath & "\SBP.url")
    With myUShtCut
    .TargetPath = "http://www.drmaster.com.tw/"                         'wURL
    .Save
    End With
    Set myUShtCut = Nothing                                 '
    Set myWsh = Nothing
End Sub
